home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 February: Tool Chest / Apple Developer CD Series Tool Chest February 1996 (Apple Computer)(1996).iso / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / 2.01 sources / Library-2.01 / Interfaces / OSUTILS.lisp < prev    next >
Encoding:
Text File  |  1993-09-16  |  17.0 KB  |  575 lines  |  [TEXT/CCL2]
  1.  
  2. (in-package :traps)             ; 
  3. ; Created: Sunday, January 6, 1991 at 10:51 PM
  4. ;     OSUtils.p
  5. ;     Pascal Interface to the Macintosh Libraries
  6. ; 
  7. ;         Copyright Apple Computer, Inc.    1985-1990
  8. ;         All rights reserved
  9. ; 
  10.  
  11. ;;;;;;;;;;;;;
  12. ;
  13. ; Modification History
  14. ;
  15. ; 04/28/93 mwp Release
  16. ; 01/16/93 bill in #_Date2Secs say %put-long instead of %put-ptr
  17. ; 08/05/92 bill fix #_EqualString
  18. ; ------------- 2.0
  19. ; 11/04/91 bill fix _HandAndHand
  20. ; 09/09/91 bill Fix _SwapMMUMode
  21. ; 08/23/91 bill remove bogus return specs in call forms
  22. ;               Comment out _SetCurrentA5 & _SetA5
  23. ;
  24.  
  25. ; $IFC UNDEFINED UsingIncludes
  26. ; $SETC UsingIncludes := 0
  27. ; $ENDC
  28.  
  29. ; $IFC NOT UsingIncludes
  30.  
  31. ; $ENDC
  32.  
  33. ; $IFC UNDEFINED UsingOSUtils
  34. ; $SETC UsingOSUtils := 1
  35.  
  36. ; $I+
  37. ; $SETC OSUtilsIncludes := UsingIncludes
  38. ; $SETC UsingIncludes := 1
  39. ; $IFC UNDEFINED UsingTypes
  40.  
  41. (require-interface 'TYPES)      ; $I $$Shell(PInterfaces)Types.p
  42. ; $ENDC
  43. ; $SETC UsingIncludes := OSUtilsIncludes
  44.  
  45. (defconstant $useFree 0)
  46. (defconstant $useATalk 1)
  47. (defconstant $useAsync 2)
  48. (defconstant $useExtClk 3)      ; Externally clocked
  49. (defconstant $useMIDI 4)
  50.  
  51. ; *** Environs Equates ***
  52. (defconstant $curSysEnvVers 2)  ; Updated to equal latest SysEnvirons version
  53.  
  54. ;  Machine Types 
  55. (defconstant $envMac -1)
  56. (defconstant $envXL -2)
  57. (defconstant $envMachUnknown 0)
  58. (defconstant $env512KE 1)
  59. (defconstant $envMacPlus 2)
  60. (defconstant $envSE 3)
  61. (defconstant $envMacII 4)
  62. (defconstant $envMacIIx 5)
  63. (defconstant $envMacIIcx 6)
  64. (defconstant $envSE30 7)
  65. (defconstant $envPortable 8)
  66. (defconstant $envMacIIci 9)
  67. (defconstant $envMacIIfx 11)
  68.  
  69. ;  CPU types 
  70. (defconstant $envCPUUnknown 0)
  71. (defconstant $env68000 1)
  72. (defconstant $env68010 2)
  73. (defconstant $env68020 3)
  74. (defconstant $env68030 4)
  75. (defconstant $env68040 5)
  76.  
  77. ;  Keyboard types 
  78. (defconstant $envUnknownKbd 0)
  79. (defconstant $envMacKbd 1)
  80. (defconstant $envMacAndPad 2)
  81. (defconstant $envMacPlusKbd 3)
  82. (defconstant $envAExtendKbd 4)
  83. (defconstant $envStandADBKbd 5)
  84. (defconstant $envPrtblADBKbd 6)
  85. (defconstant $envPrtblISOKbd 7)
  86. (defconstant $envStdISOADBKbd 8)
  87. (defconstant $envExtISOADBKbd 9)
  88. (defconstant $false32b 0)       ; 24 bit addressing error
  89. (defconstant $true32b 1)        ; 32 bit addressing error
  90.  
  91. ;  result types for RelString Call 
  92. (defconstant $sortsBefore -1)   ; first string < second string
  93. (defconstant $sortsEqual 0)     ; first string = second string
  94. (defconstant $sortsAfter 1)     ; first string > second string
  95.  
  96. (def-mactype :qtypes (find-mactype :unsigned-byte))
  97. (defconstant $dummyType 0)
  98. (defconstant $vType 1)
  99. (defconstant $ioQType 2)
  100. (defconstant $drvQType 3)
  101. (defconstant $evType 4)
  102. (defconstant $fsQType 5)
  103. (defconstant $sIQType 6)
  104. (defconstant $dtQType 7)
  105.  
  106. (def-mactype :traptype (find-mactype :unsigned-byte))
  107. (defconstant $OSTrap 0)
  108. (defconstant $ToolTrap 1)
  109.  
  110. (def-mactype :paramblktype (find-mactype :unsigned-word))
  111. (defconstant $IOParam 0)
  112. (defconstant $FileParam 1)
  113. (defconstant $VolumeParam 2)
  114. (defconstant $CntrlParam 3)
  115. (defconstant $SlotDevParam 4)
  116. (defconstant $MultiDevParam 5)
  117. (defconstant $AccessParam 6)
  118. (defconstant $ObjParam 7)
  119. (defconstant $CopyParam 8)
  120. (defconstant $WDParam 9)
  121. (defconstant $FIDParam 10)
  122. (defconstant $CSParam 11)
  123. (defconstant $ForeignPrivParam 12)
  124.  
  125. (def-mactype :syspptr (find-mactype :pointer))
  126. (defrecord SysParmType 
  127.    (valid :unsigned-byte)
  128.    (aTalkA :unsigned-byte)
  129.    (aTalkB :unsigned-byte)
  130.    (config :unsigned-byte)
  131.    (portA :signed-integer)
  132.    (portB :signed-integer)
  133.    (alarm :signed-long)
  134.    (font :signed-integer)
  135.    (kbdPrint :signed-integer)
  136.    (volClik :signed-integer)
  137.    (misc :signed-integer)
  138.    )
  139.  
  140. ; QElemPtr = ^QElem;
  141.  
  142. (def-mactype :qelemptr (find-mactype :pointer))
  143.  
  144. (defrecord FInfo 
  145.    (fdType :ostype)             ; the type of the file
  146.    (fdCreator :ostype)          ; file's creator
  147.    (fdFlags :signed-integer)    ; flags ex. hasbundle,invisible,locked, etc.
  148.    (fdLocation :point)          ; file's location in folder
  149.    (fdFldr :signed-integer)     ; folder containing file
  150.    )
  151.  
  152. (defrecord VCB 
  153.    (qLink (:pointer :qelem))
  154.    (qType :signed-integer)
  155.    (vcbFlags :signed-integer)
  156.    (vcbSigWord :signed-integer)
  157.    (vcbCrDate :signed-long)
  158.    (vcbLsMod :signed-long)
  159.    (vcbAtrb :signed-integer)
  160.    (vcbNmFls :signed-integer)
  161.    (vcbVBMSt :signed-integer)
  162.    (vcbAllocPtr :signed-integer)
  163.    (vcbNmAlBlks :signed-integer)
  164.    (vcbAlBlkSiz :signed-long)
  165.    (vcbClpSiz :signed-long)
  166.    (vcbAlBlSt :signed-integer)
  167.    (vcbNxtCNID :signed-long)
  168.    (vcbFreeBks :signed-integer)
  169.    (vcbVN (:string 27))
  170.    (vcbDrvNum :signed-integer)
  171.    (vcbDRefNum :signed-integer)
  172.    (vcbFSID :signed-integer)
  173.    (vcbVRefNum :signed-integer)
  174.    (vcbMAdr :pointer)
  175.    (vcbBufAdr :pointer)
  176.    (vcbMLen :signed-integer)
  177.    (vcbDirIndex :signed-integer)
  178.    (vcbDirBlk :signed-integer)
  179.    (vcbVolBkUp :signed-long)
  180.    (vcbVSeqNum :signed-integer)
  181.    (vcbWrCnt :signed-long)
  182.    (vcbXTClpSiz :signed-long)
  183.    (vcbCTClpSiz :signed-long)
  184.    (vcbNmRtDirs :signed-integer)
  185.    (vcbFilCnt :signed-long)
  186.    (vcbDirCnt :signed-long)
  187.    (vcbFndrInfo (:array :signed-long 8))
  188.    (vcbVCSize :signed-integer)
  189.    (vcbVBMCSiz :signed-integer)
  190.    (vcbCtlCSiz :signed-integer)
  191.    (vcbXTAlBlks :signed-integer)
  192.    (vcbCTAlBlks :signed-integer)
  193.    (vcbXTRef :signed-integer)
  194.    (vcbCTRef :signed-integer)
  195.    (vcbCtlBuf :pointer)
  196.    (vcbDirIDM :signed-long)
  197.    (vcbOffsM :signed-integer)
  198.    )
  199.  
  200. (def-mactype :drvqelptr (find-mactype :pointer))
  201. (defrecord DrvQEl 
  202.    (qLink (:pointer :qelem))
  203.    (qType :signed-integer)
  204.    (dQDrive :signed-integer)
  205.    (dQRefNum :signed-integer)
  206.    (dQFSID :signed-integer)
  207.    (dQDrvSz :signed-integer)
  208.    (dQDrvSz2 :signed-integer)
  209.    )
  210.  
  211. (def-mactype :parmblkptr (find-mactype :pointer))
  212. (defrecord ParamBlockRec 
  213.    (qLink (:pointer :qelem))
  214.    (qType :signed-integer)
  215.    (ioTrap :signed-integer)
  216.    (ioCmdAddr :pointer)
  217.    (ioCompletion :pointer)
  218.    (ioResult :signed-integer)
  219.    (ioNamePtr (:pointer (:string 255)))
  220.    (ioVRefNum :signed-integer)
  221.    (:variant 
  222.  
  223.       ((ioRefNum :signed-integer)
  224.       (ioVersNum :signed-byte)
  225.       (ioPermssn :signed-byte)
  226.       (ioMisc :pointer)
  227.       (ioBuffer :pointer)
  228.       (ioReqCount :signed-long)
  229.       (ioActCount :signed-long)
  230.       (ioPosMode :signed-integer)
  231.       (ioPosOffset :signed-long))
  232.  
  233.       ((ioFRefNum :signed-integer)
  234.       (ioFVersNum :signed-byte)
  235.       (filler1 :signed-byte)
  236.       (ioFDirIndex :signed-integer)
  237.       (ioFlAttrib :signed-byte)
  238.       (ioFlVersNum :signed-byte)
  239.       (ioFlFndrInfo :finfo)
  240.       (ioFlNum :signed-long)
  241.       (ioFlStBlk :signed-integer)
  242.       (ioFlLgLen :signed-long)
  243.       (ioFlPyLen :signed-long)
  244.       (ioFlRStBlk :signed-integer)
  245.       (ioFlRLgLen :signed-long)
  246.       (ioFlRPyLen :signed-long)
  247.       (ioFlCrDat :signed-long)
  248.       (ioFlMdDat :signed-long))
  249.  
  250.       ((filler2 :signed-long)
  251.       (ioVolIndex :signed-integer)
  252.       (ioVCrDate :signed-long)
  253.       (ioVLsBkUp :signed-long)
  254.       (ioVAtrb :signed-integer)
  255.       (ioVNmFls :signed-integer)
  256.       (ioVDirSt :signed-integer)
  257.       (ioVBlLn :signed-integer)
  258.       (ioVNmAlBlks :signed-integer)
  259.       (ioVAlBlkSiz :signed-long)
  260.       (ioVClpSiz :signed-long)
  261.       (ioAlBlSt :signed-integer)
  262.       (ioVNxtFNum :signed-long)
  263.       (ioVFrBlk :signed-integer))
  264.  
  265.       ((ioCRefNum :signed-integer)
  266.       (csCode :signed-integer)
  267.       (csParam (:array :signed-integer 11)))
  268.  
  269.       ((filler3 :signed-long)
  270.       (ioMix :pointer)
  271.       (ioFlags :signed-integer)
  272.       (ioSlot :signed-byte)
  273.       (ioID :signed-byte))
  274.  
  275.       ((filler4 :signed-long)
  276.       (ioMMix :pointer)
  277.       (ioMFlags :signed-integer)
  278.       (ioSEBlkPtr :pointer))
  279.       ))
  280.  
  281. (def-mactype :evqelptr (find-mactype :pointer))
  282. (defrecord EvQEl 
  283.    (qLink (:pointer :qelem))
  284.    (qType :signed-integer)
  285.    (evtQWhat :signed-integer)   ; this part is identical to the EventRecord as...
  286.    (evtQMessage :signed-long)   ; defined in ToolIntf
  287.    (evtQWhen :signed-long)
  288.    (evtQWhere :point)
  289.    (evtQModifiers :signed-integer)
  290.    )
  291.  
  292. (defrecord VBLTask 
  293.    (qLink (:pointer :qelem))
  294.    (qType :signed-integer)
  295.    (vblAddr :pointer)
  296.    (vblCount :signed-integer)
  297.    (vblPhase :signed-integer)
  298.    )
  299.  
  300. (defrecord DeferredTask 
  301.    (qLink (:pointer :qelem))    ; next queue entry
  302.    (qType :signed-integer)      ; queue type
  303.    (dtFlags :signed-integer)    ; reserved
  304.    (dtAddr :pointer)            ; pointer to task
  305.    (dtParm :signed-long)        ; optional parameter
  306.    (dtReserved :signed-long)    ; reserved--should be 0
  307.    )
  308.  
  309. (defrecord QElem 
  310.    (:variant 
  311.  
  312.       ((dtQElem :deferredtask)) ; deferred
  313.  
  314.       ((vblQElem :vbltask))     ; vertical blanking
  315.  
  316.       ((ioQElem :paramblockrec)); I/O parameter block
  317.  
  318.       ((drvQElem :drvqel))      ; drive
  319.  
  320.       ((evQElem :evqel))        ; event
  321.  
  322.       ((vcbQElem :vcb))         ; volume control block
  323.       ))
  324.  
  325. (def-mactype :qhdrptr (find-mactype :pointer))
  326. (defrecord QHdr 
  327.    (qFlags :signed-integer)
  328.    (qHead (:pointer :qelem))
  329.    (qTail (:pointer :qelem))
  330.    )
  331.  
  332. (defrecord DateTimeRec 
  333.    (year :signed-integer)
  334.    (month :signed-integer)
  335.    (day :signed-integer)
  336.    (hour :signed-integer)
  337.    (minute :signed-integer)
  338.    (second :signed-integer)
  339.    (dayOfWeek :signed-integer)
  340.    )
  341.  
  342. (defrecord SysEnvRec 
  343.    (environsVersion :signed-integer)
  344.    (machineType :signed-integer)
  345.    (systemVersion :signed-integer)
  346.    (processor :signed-integer)
  347.    (hasFPU :boolean)
  348.    (hasColorQD :boolean)
  349.    (keyBoardType :signed-integer)
  350.    (atDrvrVersNum :signed-integer)
  351.    (sysVRefNum :signed-integer)
  352.    )
  353.  
  354.  
  355. (deftrap _getsyspptr nil
  356.    (:no-trap (:pointer :sysparmtype))
  357.    (:no-trap (%int-to-ptr #x1f8)))
  358.  
  359. (deftrap _sysbeep ((duration :signed-integer))
  360.    nil
  361.    (:stack-trap #xA9C8))
  362.  
  363. (deftrap _keytrans ((transdata :pointer) (keycode :signed-integer) (state (:pointer :signed-long)))
  364.    (:stack :signed-long)
  365.    (:stack-trap #xA9C3))
  366.  
  367. (deftrap _dtinstall ((dttaskptr (:pointer :qelem)))
  368.    (:d0 :signed-integer)
  369.    (:register-trap #xA082 :a0 dttaskptr))
  370.  
  371. (deftrap _getmmumode nil
  372.    (:no-trap :signed-byte)
  373.    (:no-trap (ccl::%get-signed-byte (%int-to-ptr #xcb2))))
  374.  
  375. (deftrap _swapmmumode ((mode (:pointer :signed-byte)))
  376.          (:no-trap :byte)
  377.   (:no-trap (setf (%get-byte mode)
  378.                   (ccl:register-trap #xA05D :d0 (%get-byte mode) :d0))))
  379.  
  380. (deftrap _sysenvirons ((versionrequested :signed-integer) (theworld (:pointer :sysenvrec)))
  381.    (:d0 :signed-integer)
  382.    (:register-trap #xA090 :d0 versionrequested :a0 theworld))
  383.  
  384. ; Warning. Assuming that (pointer to long word secs) matches (time (:pointer :signed-long)) in trap readdatetime
  385. (deftrap _readdatetime ((time (:pointer :signed-long)))
  386.    (:a0 :signed-integer)
  387.    (:register-trap #xA039 :a0 time))
  388.  
  389. (deftrap _getdatetime ((secs (:pointer :signed-long)))
  390.    nil
  391.    (:no-trap (%put-long secs (%get-long (%int-to-ptr #x20c)))))
  392.  
  393. ; Warning. Assuming that (secs long word) matches (time :signed-long) in trap setdatetime
  394. (deftrap _setdatetime ((time :signed-long))
  395.    (:d0 :signed-integer)
  396.    (:register-trap #xA03A :d0 time))
  397.  
  398. (deftrap _settime ((d :datetimerec))
  399.    nil
  400.    (:no-trap (ccl:register-trap #xA03A :d0 (ccl:register-trap #xA9C7 :a0 d :d0))))
  401.  
  402. (deftrap _gettime ((d (:pointer :datetimerec)))
  403.    nil
  404.    (:register-trap #xA9C6 :d0 (%get-long (%int-to-ptr #x020C)) :a0 d))
  405.  
  406. (deftrap _date2secs ((d :datetimerec) (secs (:pointer :signed-long)))
  407.    nil
  408.   (:no-trap
  409.    (%put-long secs (ccl:register-trap #xa9C7 :a0 d :d0))))
  410.  
  411. (deftrap _secs2date ((secs :signed-long) (d (:pointer :datetimerec)))
  412.    nil
  413.    (:register-trap #xA9C6 :d0 secs :a0 d))
  414.  
  415. (deftrap _delay ((numticks :signed-long) (finalticks (:pointer :signed-long)))
  416.    nil
  417.    (:no-trap (%put-long finalticks (ccl:register-trap #xA03B :a0 (%int-to-ptr numticks) :d0))))
  418.  
  419. (deftrap _gettrapaddress ((trapnum :signed-integer))
  420.    (:a0 :signed-long)
  421.    (:register-trap #xA146 :d0 trapnum ))
  422.  
  423. (deftrap _settrapaddress ((trapaddr :signed-long) (trapnum :signed-integer))
  424.    nil
  425.    (:register-trap #xA047 :a0 trapaddr :d0 trapnum))
  426.  
  427.  
  428. (deftrap _ngettrapaddress ((trapnum :signed-integer))
  429.    (:a0 :signed-long)
  430.    (:register-trap #xA346 :d0 trapnum))
  431.  
  432. (deftrap _nsettrapaddress ((trapaddr :signed-long) (trapnum :signed-integer))
  433.    nil
  434.    (:register-trap #xA247 :a0 trapaddr :d0 trapnum))
  435.  
  436. (deftrap _getostrapaddress ((trapnum :signed-integer))
  437.    (:a0 :signed-long)
  438.    (:register-trap #xA346 :d0 trapnum :a0))
  439.  
  440. (deftrap _setostrapaddress ((trapaddr :signed-long) (trapnum :signed-integer))
  441.    nil
  442.    (:register-trap #xA247 :a0 trapaddr :d0 trapnum))
  443.  
  444. (deftrap _gettooltrapaddress ((trapnum :signed-integer))
  445.    (:a0 :signed-long)
  446.    (:register-trap #xA746 :d0 trapnum))
  447.  
  448. (deftrap _settooltrapaddress ((trapaddr :signed-long) (trapnum :signed-integer))
  449.    nil
  450.    (:register-trap #xA647 :a0 trapaddr :d0 trapnum))
  451.  
  452. (deftrap _gettoolboxtrapaddress ((trapnum :signed-integer))
  453.    (:a0 :signed-long)
  454.    (:register-trap #xA746 :d0 trapnum))
  455.  
  456. (deftrap _settoolboxtrapaddress ((trapaddr :signed-long) (trapnum :signed-integer))
  457.    nil
  458.    (:register-trap #xA647 :a0 trapaddr :d0 trapnum))
  459.  
  460. (deftrap _writeparam nil
  461.    (:d0 :signed-integer)
  462.    (:register-trap #xA038))
  463.  
  464. ; the CaseSens parameter is set true with the :CASE keyword.
  465. ; The DiacSens parameter is set true with the :MARKS keyword.
  466. ; e.g. (#_EqualString :marks :case str1 str2)
  467. (DEFTRAP _EQUALSTRING ((STR1 (:STRING 255)) (STR2 (:STRING 255)))
  468.   (:D0 :signed-integer)
  469.   (zerop (the fixnum
  470.            (:REGISTER-TRAP 41020 
  471.                            :A0 (%inc-ptr str1)
  472.                            :A1 (%inc-ptr str2)
  473.                            :D0 (LOGIOR (the fixnum (ASH (the fixnum (%GET-BYTE STR1))
  474.                                                         16))
  475.                                        (the fixnum (%GET-BYTE STR2)))))))
  476.  
  477. (deftrap _cmpstring ((s1 :pointer) (s2 :pointer) (lengths :unsigned-long))
  478.   (:d0 :signed-integer)
  479.   (:register-trap #xA03C :a0 s1 :a1 s2 :d0 lengths))
  480.  
  481. (deftrap _uprstring ((thestring (:pointer (:string 255))))
  482.    nil
  483.    (:register-trap #xA054 :d0 (ccl:%get-unsigned-byte the-string) :a0 (%inc-ptr thestring )))
  484.  
  485. (deftrap _enqueue ((qelement (:pointer :qelem)) (qheader (:pointer :qhdr)))
  486.    nil
  487.    (:register-trap #xA96F :a0 qelement :a1 qheader))
  488.  
  489. (deftrap _dequeue ((qelement (:pointer :qelem)) (qheader (:pointer :qhdr)))
  490.    (:d0 :signed-integer)
  491.    (:register-trap #xA96E :a0 qelement :a1 qheader))
  492.  
  493. #| If you really want to do this, it's time to learn LAP
  494. (deftrap _setcurrenta5 nil
  495.    (:no-trap :signed-long)
  496.    (:no-trap (setcurrentA5)))
  497.  
  498. (deftrap _seta5 ((newa5 :signed-long))
  499.    (:no-trap :signed-long)
  500.    (:no-trap (setA5 newA5)))
  501. |#
  502.  
  503. (deftrap _environs ((rom (:pointer :signed-integer)) (machine (:pointer :signed-integer)))
  504.    nil
  505.    (:no-trap (environs rom machine)))
  506.  
  507. (deftrap _relstring ((str1 (:string 255)) (str2 (:string 255)))
  508.   (:d0 :signed-integer)
  509.   (:register-trap #xA050 
  510.                   :a0 (%inc-ptr str1) 
  511.                   :a1 (%inc-ptr str2) 
  512.                   :d0 (+ (ash 16 (%get-unsigned-byte str1)) (%get-unsigned-byte str2))))
  513.  
  514. (deftrap _handtohand ((thehndl (:pointer :handle)))
  515.    (:no-trap :signed-integer)
  516.    (:no-trap (ccl::%stack-block ((ret 8))
  517.                (ccl::%gen-trap #xA9E1 :return-block ret :a0 (%get-ptr thehndl) '(:d0 :a0))
  518.                (%put-ptr thehndl (%get-ptr ret 4))
  519.                (%get-signed-word ret 2))))
  520.  
  521. (deftrap _ptrtoxhand ((srcptr :pointer) (dsthndl :handle) (size :signed-long))
  522.    (:d0 :signed-integer)
  523.    (:register-trap #xA9E2 :a0 srcptr :a1 dsthndl :d0 size))
  524.  
  525. (deftrap _ptrtohand ((srcptr :pointer) (dsthndl (:pointer :handle)) (size :signed-long))
  526.    (:no-trap :signed-integer)
  527.    (:no-trap (ccl::%stack-block ((ret 8))
  528.                (ccl::%gen-trap #xA9E3 :return-block ret :a0 srcptr :d0 size '(:d0 :a0))
  529.                (%put-ptr dsthndl (%get-ptr ret 4))
  530.                (%get-signed-word ret 2))))
  531.  
  532. (deftrap _handandhand ((hand1 :handle) (hand2 :handle))
  533.    (:d0 :signed-integer)
  534.    (:register-trap #xA9E4 :a0 hand1 :a1 hand2))
  535.  
  536. (deftrap _ptrandhand ((ptr1 :pointer) (hand2 :handle) (size :signed-long))
  537.    (:d0 :signed-integer)
  538.    (:register-trap #xA9EF :a0 ptr1 :a1 hand2 :d0 size))
  539.  
  540. (deftrap _initutil nil
  541.    (:d0 :signed-integer)
  542.    (:register-trap #xA03f))
  543.  
  544. (deftrap _swapinstructioncache ((cacheenable :boolean))
  545.    (:a0 :boolean)
  546.    (:register-trap #xA198 :a0 (%int-to-ptr cacheenable) :d0 0))
  547.  
  548. (deftrap _flushinstructioncache nil
  549.    nil
  550.    (:register-trap #xA198 :d0 1))
  551.  
  552. (deftrap _swapdatacache ((cacheenable :boolean))
  553.    (:a0 :boolean)
  554.    (:register-trap #xA198 :a0 (%int-to-ptr cacheenable) :d0 2))
  555.  
  556. (deftrap _flushdatacache nil
  557.    nil
  558.    (:register-trap #xA198 :d0 3))
  559.  
  560. ; $ENDC
  561.  
  562.  
  563. (export '($foreignprivparam $csparam $fidparam $wdparam $copyparam $objparam
  564.           $accessparam $multidevparam $slotdevparam $cntrlparam $volumeparam
  565.           $fileparam $ioparam $tooltrap $ostrap $dtqtype $siqtype $fsqtype
  566.           $evtype $drvqtype $ioqtype $vtype $dummytype $sortsafter $sortsequal
  567.           $sortsbefore $true32b $false32b $envextisoadbkbd $envstdisoadbkbd
  568.           $envprtblisokbd $envprtbladbkbd $envstandadbkbd $envaextendkbd
  569.           $envmacpluskbd $envmacandpad $envmackbd $envunknownkbd $env68040
  570.           $env68030 $env68020 $env68010 $env68000 $envcpuunknown $envmaciifx
  571.           $envmaciici $envportable $envse30 $envmaciicx $envmaciix $envmacii
  572.           $envse $envmacplus $env512ke $envmachunknown $envxl $envmac
  573.           $cursysenvvers $usemidi $useextclk $useasync $useatalk $usefree))
  574. (provide-interface 'OSUTILS)
  575.